home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1994 June / PC Plus Super CD coverdisc Issue 93 June 1994.iso / suprdisk / button / frmload.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-12  |  2.0 KB  |  77 lines
  1. VERSION 2.00
  2. Begin Form frmLoad 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Load"
  5.    ClientHeight    =   1890
  6.    ClientLeft      =   4560
  7.    ClientTop       =   3630
  8.    ClientWidth     =   3435
  9.    ClipControls    =   0   'False
  10.    Height          =   2295
  11.    Left            =   4500
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   1890
  16.    ScaleWidth      =   3435
  17.    Top             =   3285
  18.    Width           =   3555
  19.    Begin CommandButton cmdCancel 
  20.       Cancel          =   -1  'True
  21.       Caption         =   "Cancel"
  22.       Height          =   330
  23.       Left            =   1875
  24.       TabIndex        =   3
  25.       Top             =   1395
  26.       Width           =   1140
  27.    End
  28.    Begin CommandButton cmdOK 
  29.       Caption         =   "OK"
  30.       Default         =   -1  'True
  31.       Height          =   330
  32.       Left            =   450
  33.       TabIndex        =   2
  34.       Top             =   1395
  35.       Width           =   1140
  36.    End
  37.    Begin OptionButton optMaster 
  38.       Caption         =   "Load Master Bitmap"
  39.       Height          =   285
  40.       Left            =   750
  41.       TabIndex        =   1
  42.       Top             =   855
  43.       Width           =   2115
  44.    End
  45.    Begin OptionButton optIndi 
  46.       Caption         =   "Load Individual File"
  47.       Height          =   285
  48.       Left            =   750
  49.       TabIndex        =   0
  50.       Top             =   315
  51.       Width           =   2040
  52.    End
  53. Option Explicit
  54. Sub cmdCancel_Click ()
  55.     frmLoad.Hide
  56. End Sub
  57. Sub cmdOK_Click ()
  58.     If OptIndi Then
  59.         frmLoad.Tag = 1
  60.     ElseIf OptMaster Then
  61.         frmLoad.Tag = 2
  62.     Else
  63.         MsgBox "Nothing Selected"
  64.         Exit Sub
  65.     End If
  66.     frmLoad.Hide
  67. End Sub
  68. Sub Form_Load ()
  69.     Position_Form frmLoad
  70. End Sub
  71. Sub optIndi_DblClick ()
  72.     cmdOK_Click
  73. End Sub
  74. Sub optMaster_DblClick ()
  75.     cmdOK_Click
  76. End Sub
  77.